home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / utility / 3 / hi25.s < prev    next >
Encoding:
Text File  |  1985-05-29  |  1.0 KB  |  51 lines
  1.  
  2. *  Make hi rez screen bios handle 25 lines of 8x16 characters
  3. *
  4. *    
  5. * author:
  6. *        j d eisenstein
  7. *
  8. * date:
  9. *        15-aug-85
  10. *
  11.  
  12. LINEA_INIT    equ    $A000
  13. GET_REZ        equ    4        ; extended bios resolution inquiry
  14.  
  15.  
  16. hi25:
  17.  
  18.     lea    stack,sp    
  19.  
  20.     move.w    #GET_REZ,-(sp)        ; get screen resolution
  21.     trap    #14
  22.     addq.w    #2,sp
  23.  
  24.     cmp.w    #2,d0            ; only execute if already in hi rez
  25.     bne    exit
  26.  
  27.  
  28.     dc.w    LINEA_INIT        ; get the important pointers
  29.  
  30.     
  31.     move.l    08(a1),a1        ; a1 -> 8x16 font header
  32.  
  33.     move.l    72(a1),-$0A(a0)        ; v_off_ad <- 8x16 offset table addr
  34.     move.l    76(a1),-$16(a0)        ; v_fnt_ad <- 8x16 font data addr
  35.  
  36.     move.w    #0016,-$2E(a0)        ; v_cel_ht <- 16    8x16 cell height
  37.     move.w    #0024,-$2A(a0)        ; v_cel_my <- 24    maximum cell "Y"
  38.     move.w    #1280,-$28(a0)        ; v_cel_wr <- 1280  vertical byte offset
  39.  
  40. exit:    clr.w    -(sp)            ; back to the os
  41.     trap    #1
  42.  
  43.  
  44.     ds.l    $10
  45. stack:    ds.l    $01            ; hey chef, gimme a short stack
  46.  
  47.  
  48.     end
  49.  
  50.  
  51. əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə